﻿Namespace Save

    ''' <summary>
    ''' 競合例外
    ''' </summary>
    ''' <remarks>
    ''' 保存件数がゼロ件だった場合に発生します
    ''' 発生原因は以下のいずれかになります
    ''' ・ModelとTableのPrimaryKey制約が合っていない
    ''' ・他のユーザーにより、同レコードが削除された
    ''' ・他のユーザーにより、同レコードが更新された（バージョンキーが有効な場合にのみ発生）
    ''' </remarks>
    Public Class ConflictException
        Inherits SaveException

        Public Sub New(m As Object)
            MyBase.New(m)
        End Sub

        Public Overrides ReadOnly Property Message As String
            Get
                Return String.Format(My.Resources.CONFLICT_EXCEPTION_MESSAGE, Me.Model.GetType.Name)
            End Get
        End Property

    End Class

End Namespace

